DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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SET COMPLETION STATUS 
SAVE COMPLETION STATUS 


16-SEP-1984 00:21:49 VAX/VMS Macro v04-00 
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- SET COMPLETION STATUS ! “SEP=1984 AX/VM 4- 
15-SEP-1984 69: ih 3 DCL. SRC STA Pus maRs2 a 


eTITL #0. 809 = SET COMPLETION STATUS 
- IDEN v04- 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


*® 

*® ® 
-@ ® 
:@ 
:@ ® 
-@ o 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
;® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
' INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER  ¢ 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
:# TRANSFERRED. ® 
: ® 
;*# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. ’ 
*® ® 
® ® 
** *® 
*® ® 
:* ® 
*® ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; De N. CUTLER 18-MAY-77 
; ; MODIFIED BY: 


V04-001 HWS0108 Harold Schultz 14-Sep-1984 
In the case of SSS$_EXCPUTIM, SSS$_FORC genet and 
JBC$_JOBABORT errors, execute an implici t €xIT command 
with error status in order to unwind all lemma procedures. 


OOOCoCooococcoceoo 


If interactive, it will cause return to the command prompt. 
If batch, it will cause the batch job to exit. 


v03-004 PCG0005 Peter George 03-Jan-1984 
Fix broken BSBW. 


v03-003 PCG0004 Peter George 27-May-1983 
Fix broken BRW. 


v03-002 PC6000S Peter George 28-Jan-1983 
Remove references to the 0 EXIT bit. 


v03-001 PCG0002 Peter George 30-Dec-1982 
Break DCLSSET_STATUS up into two routines. 
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- SET COMPLETION STATUS 


16-SEP-1984 AX/VMS Macro v04-00 
15-SEP-1984 88: $3 $3 DCL. SRCJS ATUS. MAR; 2 
4 ; 
@ | ; MACRO LIBRARY CALLS 
8 PRCDEF :DEFINE PROCESS WORK AREA 
9 WRKDEF ;DEFINE COMMAND WORK AREA 
60 SPSLDEF DEFINE PROCESSOR STATUS REGISTER FIELDS 
61 SJBCRSGDEF DEFINE JOB CONTROLLER ERROR MESSAGES 
¢ SSTSDEF DEFINE STATUS LONG WORD VALUES 
64 LOCAL DATA 
88 | 
¢} -PSECT DCLSZCODE,BYTE,RD,NOWRT 
$9 DCLS$T_DEFON 3 DEFAULT ON TEXT 
0 EXIT: rth * 65>/EXIT/<0> : 


md 


an 


STATUS = SET 
VO4-001 SET ¢ 


Page 
DCL.SRCISTATUS.MAR;2 


OMMAND. I 


Ss 
BE 


OMPLETION STATUS ARE CONVERTED TO ASCII 


TUS 
F ERROR STATUS OF SOME KIND 


AST'S 
INFORMATION FROM STACK 


C$_JOBABORT ERRORS. 


SAVE LAST STATUS VALUE FOR PROCESS 
; OMMAN FFER 


Lass cat) at ;1F SET, CONTROL Y/C LEVEL 


E LAST STATUS VALUE FOR PROCESS 
OMPLETION 


COMPLETION STATUS 16-SEP-1984 00:21:49 VAX/VMS Macro v04-00 
OMPLETION STATUS 15-SEP-1984 90:45:88 
006 ie i .SBTTL SET COMPLETION STATUS 
§ é 7 ; DCLSSET_STATUS = SET COMPLETION STATUS 
° 6 id: + THIS ROUTINE IS CALLED TO SET THE COMPLETION STATUS OF AC IT 
6 77 : CALLED FROM A POINT AT WHICH INDIRECT FILES AND ALL OTHER CONTEXT CAN 
44 fe ; DESTROYED IF APPROPRIATE. 
9006 = 80 ; INPUTS: 
006 ; 3 RO = COMPLETION STATUS VALUE. 
006 4 ; IT IS ASSUMED THAT "ON ERROR’ CONDITIONS HAVE BEEN ESTABLISHED. 
9006 6 : OUTPUTS: 
0006 8: THE THREE COMPONENTS OF THE COMPL 
0006 89 : AND EQUATED TO THEIR RESPECTIVE SYMBOL NAMES. 
Soe 
006 9 DCLSSET_STATUS:: :SET COMPLETION STA 
850 €9 0006 9 BLBC —sRO, S$ “BR 
03 FO AA 08 fl 0009s «9 BBC #WRK_V_NOSTAT,WRK_W_FLAGS(R10),5$ ; BR IF STATUS COMMAND 
0084 31 O00E 95 BRW 40$ SOTHERWISE, DONE 
0011 3 5$: DISABLE ‘DISABLE CONTROL Y/C 
8E 7¢ 0017 9 CLRQ (SP) SREMOVE RETURN 
78 «(10 9019 98 BSBB  —d DCLSSAVE_STATUS [SET $STATUS AND SSEVERITY 
0018 100 ; SPECIAL CASE SS$_EXCPUTIM , SS$_FORCEDEXIT, AND JBCS$_ 
0018 101 : SET THE LAST STATUS VALUE, FLUSA THE COMMAND BUFFER, AND SETUP TO EXECUTE 
0018 108 : THE EXIT COMMAND. 
06 €0 0018 104° BBS C_V_MODE,- :BRANCH IF NOT INTERACTIVE 
05 68 AB 001D 105 PRC_@_FLAGS(R11),7$ 
5C AB D5 9020 106 TSTL  PRCTLINDEPTH(R11) ;ARE WE AT COMMAND LEVEL 0? 
| i 00 ; 107 BEQL [YES, PROCESS NORMALLY 
50 F0000000 8F CA 0025 109 7s: BICL #STSSM_CONTROL,RO 
50 00000000'8F 1 00 ¢ 110 CMPL = #SS$_ERCPUTIM.RO TEXCEEDED CPU TIME ERRO 
12 13 00 111 BEQL 0$ “VES, SPECIAL CA 
50 00068082 8F 01 0035 118 CMPL  #JBC$_JOBABORT!STSSK_ERROR,RO ; 
9 13 005¢ 1 BEQL $ sV€S, SPECIAL CASE 
50 00000000°8F 01 00 114 CMPL = #SS$_FORCEDEXIT.RO [FORCED EXIT ERROR? 
Op 12 i 115 BNEG 208 [NO, PROCESS NORMALLY 
0080 cB 4650 «=O (0047 113 10$:  MOVL  RO,PRC_L_LSTSTATUS(R11) 
00000000'EF 16 et 118 JSB BELSFLOSA FLUSH THE C D BU 
6 11 05¢ 119 BRB 5 :SETUP TO EXECUTE EXIT’ COMMAND. 
3C 68 AB EO 0054 121 208: BBS #PRC_V_YLEVEL,PRC_W_F 
0080 CB 3 b9 059 «(1 é MOVL  RO,PRCTL_LSTSTATUS(RI1) ; 
34 E8 O0SE 1 BLBS *40$ SIF LBS SUCCESSFUL C 
50 50 03 ef 061 126 EXTZV #0.#3,R0,RO TEXTRACT SEVERITY LEVEL 
6A AB «50 O79 066 125 CMPB =o RO, PRC_W-ONLEVEL(R11) FATAL ERROR? 
9 19 006A 1 6 Biss 6-40 :1F LSS NO 
09900000" EF 16 o6¢ 1 JSB DCLSFLUSH [FLUSH COMMAND BUFFER 
50 6C AB D 128 MOVL  PRC_L_ONERROR(R11),RO GET ADDRESS OF ON COMMAND TEXT 
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| 
STATUS - SET COMPLETION STATUS -1984 1:49 VAX/VMS Macro v04-00 Pa 4 
yo4-001 SET COMPLETION STATUS 1873 P= 19p4 88: 3 :38 (CDCL.SRCISTATUS.MAR;2 - ob 
04 12 076 129 BNEQ 30% :1f NEQ COMMAND SPECIFIED 
50 85 AF 9E 0078 130 58: MOVAB EXIT -RO 3GET ADDRESS OF EXIT COMMAND TEXT 
51 80 9A 007C 131 30$:  ## MOVZBL (RO)+.R1 GET LENGTH OF ON COMMAND TEXT 
F896 CA «660 CS1—ts«B ov 1 ’ Ove = R17, (RO) ,WRK_G yweaur caro} vE D TO INPUT BUFFER 
F4BE CA F895 cA 5 1 MOVAB WRK_G_INPBUF-T(R10) ,WRK_L EARPTRCRTOD ;SET INPUT BUFFER POINTER 
FF71° 0 C 134 SBW = OCLSONRESET ;RESET ON ERROR PARAMETERS 
00000000°EF 7 F135 JMP DCLSCMDSTART ;EXECUTE ON COMMAND 
05 095 6 40$: RSB ; 


1 4 
STAT - SET COMPLETION STATUS 16-SEP-1984 AX/VMS Macro V04-00 Pa 5 
yoe-001 SAVE COMPLETION StAtUs 1ErSE b= 19be Bosaride YOR ee eS K nee - db 
3 139 ; .SBTTL SAVE COMPLETION STATUS 
? 14} ; DCLSSAVE_STATUS = SET COMPLETION STATUS 
36 168 | : THIS ROUTINE I$ CALLED TO SET $STATUS AND $SEVERITY. 
036 145 INPUTS: 
96 146 ; 
096 14 ; RO = COMPLETION STATUS VALUE. 
$F 189 : OUTPUTS: 
$38 13 THE TWO COMPONENTS OF THE COMPLETION STATUS ARE CONVERTED TO ASCII 
0096 138 : AND EQUATED TO THEIR RESPECTIVE SYMBOL NAMES. 
ith9 12 a 
096 136 | DCLSSAVE_STATUS:: :SET $STATUS AND $SEVERITY 
096 157 ; 
0096 158 ; IF ABBREVIATED CLI STATUS (REPRESENTED BY NEGATIVE NUMBER), THEN TRANSLATE 
9096 139 : TO A NORMAL STATUS. 
50 pd 009% 161° PUSHL RO ;SAVE COMPLETION STATUS VALUE 
0C 18 0098 16¢ BGEQ 108 [IF GEQ NOT COMMAND INTERPRETER STATUS 
50 cE 009A 16 MNEGL RO,RO ;NEGATE COMPLETION STATU 
BF AB 009D 164 BISW  #*X0E000,RO [ADD CLI SUBSYSTEM SPECIFY DIVIDED BY 4 
06 ¢S OOA2 165 MULL3 #4,RO0, (SP) [CONVERT TO SCALED ERROR NUMBER 
00A6 166 
QOOA6 167; 
QOAG6 168 ; SET UP SSEVERITY. 
00A6 169 
99 EF 00A6 170 {0S: EXTZV #0, #3, (SP),RO ZEXTRACT SEVERITY LEVEL 
0 CO OOAB 171 ADDL A/07, [CONVERT SEVERITY LEVEL TO ASCII 
AB DO OOA 1% MOVL PRE L_SEVERITY(R11),R1 :GET ADDRESS OF SEVERITY LEVEL VALUE 
50 90 00B2 17 MOVB RO, TRT) SSET SEVERITY LEVEL VAL 
01 «B80 0085 124 MOVW = #1, =2(R1) :SET LENGTH OF SEVERITY LEVEL VALUE 
$089 176 : ; 
0089 Wr: t SET UP $STATUS. 
54 AB DO 0089 «179° MOVL PRC_L_STATUS(R11),R2 ;GET ADDRESS OF STATUS VALUE VALUE 
6— 00 O0BD 180 MOVL (SPT,RO 3GET STATU vA LUE 
A BO 00CO 181 MOV) #10,-2(R2) [SET LENGTH OF STRING 
F 80 (6 1 3 MOVW #*A/2X/,(R2)+ :SET RADIX CONTROL CHARACTERS 
FF 34° C9 ; BSBW © DCLSCNVAXL [CONVERT TO HEX LONGWO 
OCC 185; 
occ | $ : RESTORE STATUS AND RETURN. 
50 BEDO occ 1 : POPL RO sRESTORE THE STATUS 
0 (fF (1 RSB : RETURN 
909 190 
0000 +=—-:191 END 
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- SET COMPLETION STATUS 16-SEP=1 


STATUS 984 00:21: AX/VMS Macro V04-00 Page 
Symbol table 1 mie 7 90:43:38 YOCL SRCISTATUS MARS 2 . 
DCLSCMDSTART eteeeere § x PRC_L_SYMBOL $0 
DCLSCNVHXL eenereee § xX PRC_L_TMBX 4 
DCLSDISABLE eeeeeree 8 6X PRC_L_TRMLIST 1 
DCLSFLUSH entrees xX PRC_Q_ALLOCREG 2 
DCLSONRESET eetereee § YX PRC_Q_COMMAND E 
DCLSSAVE_STATUS 96 RG PRC_Q_FLUSHTIME D 
DCLSSET_STATUS 06 RG PRC_Q_GLOBAL 2 
DCLS$T_DEFONTXT RG PRC_Q_IMAGENAME 30 
EXIT R PRC_Q_KEYPAD 4 
JBC$_JOBABORT = 4 PRC_Q_LABEL 0 ; 
PRC_6_CONTI OOOO0F PRC_Q_LOCAL 0000 
PRC_B_DEFRADIX : AE PRC_Q_SAVEPRIV 4 ‘ 
PRC_B_EXMDE AD PRC_T_OUTDVI C 
PRC_B_EXMDEPWID OOOOAC PRC-V-MODE 2 9000006 
C_B_EXONLYL 0000120 PRC_V_YLEVEL = 00000008 
PRC_B_FLAGS2 44 EH PRC_W_ASTIOSB 494 49 
C_B_IMGFLAG 000078 PRC_W_ASTRETN 00000C 
PRC_B_OUTFLAGS 100001 2C PRC_W_ASTSTATUS 449 43 5 
RC_B_PROMPTLEN 4 sd a PRC_W_ATTMBX 000007A 
PRC_C_LENGTH 0000534 PRC_W_FLAGS 944644 
GC 00000133 PRC_W_INPCHAN 0000064 
PRC_G_PROMPT si 4 Sa PRC_W_ONLEVEL 0000006A 
_K_ LENGTH 00000534 PRC_W_OUTIFI 00000114 
PRC_L_CURRKEY 0000048 PRC_W_OUTISI 00000116 
C_L_EXMDEPADR 00000A8 PRC_W_OUTMBXCHN QO0000CA 
PRC_L_EXTARG 0000094 PRC_W_OUTMBXREF 900000CE 
PRC_L_EXTBLK 94 4 4453 PRC_W_OUTMBXSIZ 000000CC 
C_L_EXTCOD 000009C¢ PRC_W_PMPTCTRL 000000F 1 
C_L_EXTH 94944 PRC_W_WAITIOSB 00000066 
PRC_L_EXTPRM 000009 SSS-ERCPUTIM eeeeeeee x 02 
PRC_L_IDFLNK 00000B8C SS$_FORCEDEXIT eereeeee KX 02 
PRC“L-IMGACTSTS 0000080 STSSK_ERROR = 0000000 
PRC_L_INDCLCC 0000007C STSSM_CONTROL = F000000 
PRC_L_ INDEPTH 000005C¢ WRK_B_CMDOP FFFFFFC 
PRC_L_INDFAB 000001C WRK-B_MAXPARM FFFFFFDO 
PRC_L_INDINPRAB 0000014 WRK_B_MINPARM FFFFFFDI 
PRC_L_INDOUTRAB 90000018 WRK-B_PARMCNT FFFFFFCE 
PRC_L_INPRAB 0000000 WRK_B_PARMSUM FFEFFFCE 
PRC“L-LASTKEY 900 O04¢ WRK-B_RECALLCNT FFFFFFCS 
PRC"L-LSTSTATUS 0000080 WRK~B-VALLEV FFFFFFCG 
PRC"L-ONCTLY 0000088 WRK-B-VERBTYP FFFFFEC2 
PRC~L-ONERROR 00006C WRK-C"LENGTH EFPEF ASG 
PRC_L~OUTOF BAND 000084 WRK"G_BUFFER FFFFF49 
PRC_L_OUTRAB 4 19 WRK_G_INPBUF FFFFF 896 
PRC_L_OUTRABCT 1 WRK_G_RESULT FFFFF9B6 
PRC_L-PPFLIST 00007 WRK-K-LENGTH FFFFF486 
PRC"L-RECALLPTR ter WRK-L-CHARPTR FFFFF GSE 
PRC"L-RESTART 8 WRK-L-DISALLOW FFEFFFFE6 
PRC"L-SAVAP 0000000 WRK-L"ERRORRTN FFFFFOAE 
PRC_L-SAVFP 04 WRK-L-EXPANDPTR FFEFE ORG 
PRC“L-SEVERITY 0 WRK"L~ IMAGE rrrPEEE 
PRC“L- C WRK-L"MARKPTR FFFFFGSA 
PRC"L-STACKLM O000A4 “L-PAROUT FFFFFFD 
PRC_L_STACKPT pee WRK_L_PMPTADDR FFFFFOA 
PRC"L“STATUS 54 WRK-L“PROMPTRIN FFFFFOA 
PRC“L“STS O84 WRK-L-PROPT FFFFFFC6 
PRC“L-STV 0000088 WRK"L~QUABLK FEFFFFCA 
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STATUS - SET COMPLETION STATUS 16-SEP-1984 00:21:49 VAX/VMS Macro v04-00 Pa 
Symbol table 19-3 b=188e 90:4): $g DCL.SRCIJSTATUS.MAR;2 nes 
WRK_L_READRIN FFFFFOAA 
WRK"“L-RECALLPTR FFFFFFEA 
WRK_L_RSLEND FFFFFFB6 
WRK-L-RSLNXT FFFFFFBA 
WRK-L~SAVAP FFFFFFFR 
WRK-L~SAVEP FFFFFFFC 
WRK-L-SAVSP FFFFFFFG 
WRK-L~SIGNALRTN EEEEEEDG 
WRK-L"SPECRTN FFFFFOB 
WRK-L-TAB_VEC FFFFFFDE 
WRK-L_ VERB FFFFFFB 
WRK_V_NOSTAT = att 
“WIFLAGS FFFFFFF 

WRK_W_FLAGS2 FRFFFFF 
WRK_W_IMGCHAN eee LOSE 
WRK-W"PMPTLEN FFFFFOSE 

grrr eee nome eae ne + 

: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
» OS « 00000000 ( 0.) 00 ¢ OO.) NOPIC  USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS FFFFFFFC ¢ 0.) O1¢ 41.) \NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
DCLSZCODE 00000000 (« 208.) 02 ¢( 2.) NOPIC  USR CON REL LCL NOSHR’- EXE RD NOWRT NOVEC BYTE 

poses eee mem ana meee wenonee & 
: Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 15 90 : 00:00 .08 00:00:01.79 
Eceyl orev 13 BBE SE BR 
ass :00:05. 00:16. 
S lt table sort 0 0:00:00.5 00:00:01.4 
oy 3 $0:00:00:89  09:00:08.45 
Symbol table output 1 00:00:00.09 See Se oF 24 
Psect synopsis output 1 : Bess Bo :92: 0. ‘ 
Cross-reference output 0 0:00: 9-9 0:00:00.0 
Assembler run totals 331 0:00:07.30 00:00:29.75 


ine working set Limit was 1050 pages. 

76 bytes (45 pages) of virtual memory were used to buffer_the intermediate code. 

There were 30 pages of symbol table space allocated to hold 394 non-local and 8 local symbols. 
191 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

27 pages of virtual memory were used to define 14 macros. 
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STATU = SET COMPLETION STATUS 16-SEP-1984 00:21:49 VAX/VMS Macro v04-00 
SAKett Macro Run Statistics 1 mets EET DCL.SRCIST ATUS MAR; 2 


eee ee ne 2 


! Macro Library statistics ! 


mere mete scoe es sen m ener cr ewee a} 


Macro csoecas? name Macros defined 
thsyet 383 J}oCt mse] 1 3 
ss iESyé. E34 MLB: 1 
:CSYSLIB STARLET. hue: 32 : 
rb25580 Catt Libraries) 


490 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:STATUS/OBJ=0BJ$:STATUS MSRC$:STATUS/UPDATE=(ENHS: STATUS) +EXECML$/LIB+L1B$:DCL/LIB+SYSS$LIBRARY:SYSBLDMLB/LIB 
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